home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DRIVES.SWG / 0075_CD-ROM Detection.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  657b  |  29 lines
  1. {
  2. Q: How do I detect, a certain drive is a CD-Rom?
  3.  
  4. A: The foolowing function returns True if the drive is a CD-ROM.
  5. }
  6.  
  7.    Uses DOS;
  8.    FUNCTION Is_CDROM(Drv : Char):BOOLEAN;
  9.    VAR R  : Registers;
  10.        CDR: string;
  11.        cnt: byte;
  12.    BEGIN
  13.      Is_CDROM := false;
  14.      CDR      := '';
  15.      WITH R DO
  16.        BEGIN
  17.          AX := $1500;
  18.          BX := $0000;
  19.          CX := $0000;
  20.          Intr( $2F, R );
  21.          IF BX > 0 THEN
  22.            BEGIN
  23.              FOR cnt := 0 TO (bx-1) DO
  24.              CDR := CDR +CHAR( CL + Byte('A') + cnt );
  25.            END;
  26.          Is_CDROM := POS( upcase(Drv), CDR ) > 0
  27.        END
  28.    END;
  29.